home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / scm / xscm.lha / xscm / ol.scm < prev    next >
Encoding:
Text File  |  1992-08-29  |  5.0 KB  |  181 lines
  1. ; $Header: /home/campbell/Languages/Scheme/scm/x-scm/RCS/ol.scm,v 1.3 1992/08/09 03:42:29 campbell Beta $
  2. ;
  3. ; OpenLook definitions (from <Xol/OpenLook.h>)
  4.  
  5. (define ol:absent-pair        0)
  6. (define ol:all            1)
  7. (define ol:always        2)
  8. (define ol:atom-help        3)
  9. (define ol:both            4)
  10. (define ol:bottom        5)
  11. (define ol:buttonstack        6)
  12. (define ol:center        7)
  13. (define ol:class-help        8)
  14. (define ol:columns        9)
  15. (define ol:copy-mask-value    10)
  16. (define ol:copy-size        11)
  17. (define ol:copy-source-value    12)
  18. (define ol:current        13)
  19. (define ol:default-pair        14)
  20. (define ol:disk-source        15)
  21. (define ol:display-form        16)
  22. (define ol:down            17)
  23. (define ol:existing-source    18)
  24. (define ol:fixedcols        19)
  25. (define ol:fixedheight        20)
  26. (define ol:fixedrows        21)
  27. (define ol:fixedwidth        22)
  28. (define ol:flat-button        23)
  29. (define ol:flat-checkbox    24)
  30. (define ol:flat-container    25)
  31. (define ol:flat-exclusives    26)
  32. (define ol:flat-help        27)
  33. (define ol:flat-nonexclusives    28)
  34. (define ol:halfstack        29)
  35. (define ol:horizontal        30)
  36. (define ol:image        31)
  37. (define ol:in            32)
  38. (define ol:indirect-source    33)
  39. (define ol:label        34)
  40. (define ol:left            35)
  41. (define ol:mask-pair        36)
  42. (define ol:maximize        37)
  43. (define ol:millimeters        38)
  44. (define ol:minimize        39)
  45. (define ol:never        40)
  46. (define ol:next            41)
  47. (define ol:none            42)
  48. (define ol:nonebottom        43)
  49. (define ol:noneleft        44)
  50. (define ol:noneright        45)
  51. (define ol:nonetop        46)
  52. (define ol:notices        47)
  53. (define ol:no-virtual-mapping    48)
  54. (define ol:oblong        49)
  55. (define ol:out            50)
  56. (define ol:override-pair    51)
  57. (define ol:pixels        52)
  58. (define ol:points        53)
  59. (define ol:popup        54)
  60. (define ol:previous        55)
  61. (define ol:prog-defined-source    56)
  62. (define ol:rectbutton        57)
  63. (define ol:right        58)
  64. (define ol:rows            59)
  65. (define ol:source-form        60)
  66. (define ol:source-pair        61)
  67. (define ol:stayup        62)
  68. (define ol:string        63)
  69. (define ol:string-source    64)
  70. (define ol:text-append        65)
  71. (define ol:text-edit        66)
  72. (define ol:text-read        67)
  73. (define ol:top            68)
  74. (define ol:transparent-source    69)
  75. (define ol:vertical        70)
  76. (define ol:virtual-button    71)
  77. (define ol:virtual-key        72)
  78. (define ol:widget-help        73)
  79. (define ol:window-help        74)
  80. (define ol:wrap-any        75)
  81. (define ol:wrap-white-space    76)
  82. (define ol:continuous        77)
  83. (define ol:granularity        78)
  84. (define ol:release        79)
  85. (define ol:tickmark        80)
  86. (define ol:percent        81)
  87. (define ol:slidervalue        82)
  88. (define ol:wt-base        83)
  89. (define ol:wt-cmd        84)
  90. (define ol:wt-notice        85)
  91. (define ol:wt-help        86)
  92. (define ol:wt-other        87)
  93. (define ol:success        88)
  94. (define ol:duplicate-key    89)
  95. (define ol:duplicatekey        89)
  96. (define ol:bad-key        90)
  97. (define ol:menu-full        91)
  98. (define ol:menu-limited        92)
  99. (define ol:menu-cancel        93)
  100. (define ol:selectkey        94)
  101. (define ol:menukey        95)
  102. (define ol:menudefault        96)
  103. (define ol:menudefaultkey    97)
  104. (define ol:hsbmenu        98)
  105. (define ol:vsbmenu        99)
  106. (define ol:adjustkey        100)
  107. (define ol:nextapp        101)
  108. (define ol:nextwindow        102)
  109. (define ol:prevapp        103)
  110. (define ol:prevwindow        104)
  111. (define ol:windowmenu        105)
  112. (define ol:workspacemenu    106)
  113. (define ol:defaultaction    108)
  114. (define ol:drag            109)
  115. (define ol:drop            110)
  116. (define ol:togglepushpin    111)
  117. (define ol:pageleft        112)
  118. (define ol:pageright        113)
  119. (define ol:scrollbottom        114)
  120. (define ol:scrolltop        115)
  121. (define ol:multiright        116)
  122. (define ol:multileft        117)
  123. (define ol:multidown        118)
  124. (define ol:multiup        119)
  125. (define ol:immediate        120)
  126. (define ol:moveup        121)
  127. (define ol:movedown        122)
  128. (define ol:moveright        123)
  129. (define ol:moveleft        124)
  130. (define ol:click-to-type    125)
  131. (define ol:realestate        126)
  132. (define ol:underline        127)
  133. (define ol:highlight        128)
  134. (define ol:inactive        129)
  135. (define ol:display        130)
  136. (define ol:proc            131)
  137. (define ol:size-proc        132)
  138. (define ol:draw-proc        133)
  139. (define ol:pinned-menu        134)
  140. (define ol:press-drag-menu    135)
  141. (define ol:stayup-menu        136)
  142. (define ol:pointer        137)
  143. (define ol:inputfocus        138)
  144. (define ol:quit            142)
  145. (define ol:destroy        143)
  146. (define ol:dismiss        144)
  147. (define ol:pre            145)
  148. (define ol:post            146)
  149.  
  150. ; Other things that are mysteriously missing from Xol/*.h on my system
  151.  
  152. (define xt:n-align-captions        "alignCaptions")
  153. (define xt:n-control-area        "controlArea")
  154. (define xt:n-emanate-widget        "emanateWidget")
  155. (define xt:n-gravity            "gravity")
  156. (define xt:n-label-justify        "labelJustify")
  157. (define xt:n-layout-type        "layoutType")
  158. (define xt:n-max-label            "maxLabel")
  159. (define xt:n-measure            "measure")
  160. (define xt:n-menu-pane            "menuPane")
  161. (define xt:n-min-label            "minLabel")
  162. (define xt:n-same-size            "sameSize")
  163. (define xt:n-select            "select")
  164. (define xt:n-slider-value        "sliderValue")
  165. (define xt:n-text-area            "textArea")
  166. (define xt:n-weight            "weight")
  167. (define xt:n-x-offset            "xOffset")
  168. (define xt:n-x-add-width        "xAddWidth")
  169. (define xt:n-x-vary-offset        "xVaryOffset")
  170. (define xt:n-x-resizable        "xResizable")
  171. (define xt:n-x-attach-right        "xAttachRight")
  172. (define xt:n-x-attach-offset        "xAttachOffset")
  173. (define xt:n-y-ref-name            "yRefName")
  174. (define xt:n-y-ref-widget        "yRefWidget")
  175. (define xt:n-y-offset            "yOffset")
  176. (define xt:n-y-add-height        "yAddHeight")
  177. (define xt:n-y-vary-offset        "yVaryOffset")
  178. (define xt:n-y-resizable        "yResizable")
  179. (define xt:n-y-attach-bottom        "yAttachBottom")
  180. (define xt:n-y-attach-offset        "yAttachOffset")
  181.